home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / hyper.dir / 00039.ls < prev    next >
Encoding:
Text File  |  1995-12-12  |  2.4 KB  |  103 lines
  1. global gMovieSprite, gMovieDuration, gReturnFrame, gCurrentFrame, gControlSprite1, gControlSprite2, gControlSprite3, gPauseSprite, gFirstTime
  2.  
  3. on startMovie
  4.   set gMovieSprite to 20
  5.   set gControlSprite1 to 7
  6.   set gControlSprite2 to 8
  7.   set gControlSprite3 to 9
  8.   set gPauseSprite to 10
  9.   set the exitLock to 1
  10. end
  11.  
  12. on legalButton whichSprite
  13.   repeat while the stillDown
  14.     updateStage()
  15.   end repeat
  16.   return 1
  17. end
  18.  
  19. on stopAllQT
  20.   repeat with x = 1 to 48
  21.     if the type of sprite x > 0 then
  22.       if the castType of cast the castNum of sprite x = #digitalVideo then
  23.         set the movieRate of sprite x to 0
  24.       end if
  25.     end if
  26.   end repeat
  27. end
  28.  
  29. on find whichCast, startFrame, endFrame
  30.   repeat with x = startFrame to endFrame
  31.     go(x)
  32.     repeat with y = 1 to 48
  33.       if the type of sprite y > 0 then
  34.         if the castNum of sprite y = whichCast then
  35.           put "Cast member " & whichCast & " was found in frame " & x & ", in channel " & y & "."
  36.         end if
  37.       end if
  38.     end repeat
  39.   end repeat
  40. end
  41.  
  42. on delayFor howLong
  43.   set howLong to the timer + howLong
  44.   repeat while the timer < howLong
  45.     updateStage()
  46.   end repeat
  47. end
  48.  
  49. on pressButton whichSprite, whichSound, whichCast1, whichCast2, whichFrame
  50.   stopAllQT()
  51.   puppetSound(whichSound)
  52.   repeat with x = 1 to 2
  53.     set the castNum of sprite whichSprite to the number of cast whichCast1
  54.     updateStage()
  55.     delayFor(10)
  56.     set the castNum of sprite whichSprite to the number of cast whichCast2
  57.     updateStage()
  58.     delayFor(10)
  59.   end repeat
  60.   repeat while the soundBusy of 1
  61.     updateStage()
  62.   end repeat
  63.   blackFrame(whichFrame)
  64. end
  65.  
  66. on blackFrame whichFrame
  67.   if the frame <> label("BlackFrame") then
  68.     repeat with x = 1 to 48
  69.       if the type of sprite x > 0 then
  70.         set the locV of sprite x to -500
  71.       end if
  72.     end repeat
  73.     updateStage()
  74.   end if
  75.   if whichFrame > 0 then
  76.     go(whichFrame)
  77.   end if
  78.   puppetSound(0)
  79. end
  80.  
  81. on advanceToCurrentFrame
  82.   repeat while the mouseDown
  83.     updateStage()
  84.   end repeat
  85.   if gCurrentFrame > 6 then
  86.     set gCurrentFrame to 0
  87.   end if
  88.   set the visible of sprite 7 to 0
  89.   set the visible of sprite 8 to 0
  90.   set the visible of sprite 9 to 0
  91.   blackFrame("story" & string(gCurrentFrame))
  92.   set gFirstTime to 1
  93. end
  94.  
  95. on FadeToBlackFrame
  96.   repeat with x = 1 to 48
  97.     set the locV of sprite x to -500
  98.   end repeat
  99.   puppetTransition(50, 0, 12)
  100.   updateStage()
  101.   puppetTransition(0)
  102. end
  103.